home *** CD-ROM | disk | FTP | other *** search
/ Codemasters Artwork Disc ECTS 2000 ( UK) / Codemasters - Artwork Disc ECTS 2000 (UK).bin / pc / main.dxr / 00069_download pr.ls < prev    next >
Encoding:
Text File  |  2000-01-01  |  2.2 KB  |  83 lines
  1. global gTitle, mycddrive, mysystem, glanguage
  2.  
  3. on mouseDown
  4.   cursor(4)
  5.   if gTitle = VOID then
  6.     abort()
  7.     cursor(0)
  8.   end if
  9.   if the machineType = 256 then
  10.     if mycddrive = VOID then
  11.       driveList = DrivesToList()
  12.       repeat with X = 1 to count(driveList)
  13.         driveName = getAt(driveList, X)
  14.         Y = DriveIsCDROM(driveName)
  15.         if Y = 0 then
  16.           mycddrive = driveName
  17.         end if
  18.       end repeat
  19.     end if
  20.     if mysystem = VOID then
  21.       dlist = DrivesToList()
  22.       repeat with X = 1 to count(dlist)
  23.         driveName = getAt(dlist, X)
  24.         t = driveName & "\Program Files"
  25.         b = DirectoryExists(t)
  26.         if b = 0 then
  27.           mysystem = driveName
  28.           exit repeat
  29.         end if
  30.       end repeat
  31.     end if
  32.     u = DriveFreeSpace(mysystem)
  33.     if u < 40960 then
  34.       alert("Drive" && mysystem && "has less than 4 MB, you may need to free up disc space")
  35.       cursor(0)
  36.     end if
  37.     mysource = the moviePath & "data\" & gTitle & "\" & glanguage & "\" & gTitle & "pr.rtf"
  38.     mydest = mysystem
  39.     t = gTitle & "pr.rtf"
  40.     retVal = FileSaveAsDialog(mydest, t, EMPTY, EMPTY)
  41.     if retVal <> EMPTY then
  42.       CopyFile(mysource, retVal)
  43.     end if
  44.     cursor(0)
  45.   else
  46.     if mycddrive = VOID then
  47.       driveList = DrivesToList()
  48.       repeat with X = 1 to count(driveList)
  49.         driveName = getAt(driveList, X)
  50.         Y = DriveIsCDROM(driveName)
  51.         if Y = 0 then
  52.           mycddrive = driveName
  53.         end if
  54.       end repeat
  55.     end if
  56.     if mysystem = VOID then
  57.       dlist = DrivesToList()
  58.       repeat with X = 1 to count(dlist)
  59.         driveName = getAt(dlist, X)
  60.         t = driveName & ":system folder"
  61.         b = DirectoryExists(t)
  62.         if b = 0 then
  63.           mysystem = driveName
  64.           exit repeat
  65.         end if
  66.       end repeat
  67.     end if
  68.     u = DriveFreeSpace(mysystem)
  69.     if u < 40960 then
  70.       alert("Drive" && mysystem && "has less than 4 MB, you may need to free up disc space")
  71.       cursor(0)
  72.     end if
  73.     mysource = the moviePath & "data:" & gTitle & ":" & glanguage & ":" & gTitle & "pr.rtf"
  74.     mydest = mysystem
  75.     t = gTitle & "pr.rtf"
  76.     retVal = FileSaveAsDialog(mydest, t, EMPTY)
  77.     if retVal <> EMPTY then
  78.       CopyFile(mysource, retVal)
  79.     end if
  80.     cursor(0)
  81.   end if
  82. end
  83.